#! /usr/bin/perl
my $output = '';
while (scalar @ARGV) {
  my @list;
  push @list, shift @ARGV while $ARGV[0] =~ /4p$/;
  $output .= `helper/bytecode -nc @list` if scalar @list;
  while (scalar @ARGV && $ARGV[0] !~ /4p$/) {
    $output .= `cat $ARGV[0]`;
    shift @ARGV;
  }
}
print $output;
